// -----------------------------------------------------------------------------
//
// Work is licensed by Arthur Fermi (C)2008-2011,
// under Creative Commons Attribution-Share Alike 3.0 Unported License
// To receive a copy of this license please visit
// http://creativecommons.org/licenses/by-sa/3.0/
//
// You are free to copy, distribute, transmit and adapt the work
// under the following conditions:
//
// You must attribute the work in the manner specified by the 
// author(s) or licensor (but not in any way that suggests that 
// they endorse you or your use of the work). 
//
// If you alter, transform, or build upon this work in any way,
// you may distribute the resulting work only under the same or 
// similar license to this one. 
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
// See points (6) and (7) of the license for more details.
//
// -----------------------------------------------------------------------------
// Do not change anything below here or you will likely break something
// -----------------------------------------------------------------------------

// SimNet - Radar

// Global Variables

default
{
    state_entry()
    {
        llSetText("", <1,1,1>, 1);
        //Setup Sensor
        llSensorRepeat("", NULL_KEY, AGENT, 96, PI, 1);
    }

    sensor(integer num_detected)
    {
        vector pos = llGetPos();
        string gstrMessage = "Scanner\n";
        integer i;
        for (i = 0; i < num_detected; i++)
        {
            if (llDetectedName(i) == llKey2Name(llGetOwner()))
            {
                // Don't add to the list
            }
            else
            {
                float diff = llVecDist(pos,llDetectedPos(i));
                integer dist = llRound(diff);
                    
                if (dist > 128)
                {
                    // Do Nothing
                }
                else
                {
                    //  Set AV List in chat range
                    gstrMessage += llDetectedName(i) + "-" + (string)dist + "M\n";
                }
            }
        }
        llMessageLinked(-2,99,gstrMessage, "");
    }
    
    no_sensor()
    {
        llMessageLinked(-2,99, "You are the only Avatar\nin the area", "");
    }
    on_rez(integer start_param)
    {
        llSetScriptState(llGetScriptName(), FALSE);
        llResetScript();    
    }
    
}
